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5 ; 

ee 

3 5 

; ° 1 

: : . 

: : 1 i® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 

3 10 1 '® DIGITAL Fer eEAVES. EORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1} : : ;: ALL RIGHTS RESERVED . 
; | 
: ig ig 1 te THIS > is FURNISHED UNDER A LICENSE AND MAY BE USED AND conree * 
3 14 Bie 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
3 15 15 1 !@ INCLUSION OF THE ABOVE gdh NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 18 8 1 '@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
3 1 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 \8 sid ; :* TRANSFERRED. * 

3 ‘@ * 
3 0 0020 1 !* THE ot IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 1 #1! AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
: 3 ¢ iis CORPORATION. : | 
; 4 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
3 2 88 5 ; - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 2? 0097 1 ie . 

3 8 00 } SR RR REAR AAEAEAAAAAAAAERARAEAAAAAAAAAAATARAAAAEETEEA AAA eAAee AEE 

3 9 00 

3 0 0030 1 !+¢+ 
cot 0031 1! | 
: § a8 § ! FACILITY: Miscellaneous utilities 

> 34 0034 1 | ABSTRACT: 

g 5 0035 1: 

3 0036 1} This module contains the routines necessary to provide interactive 

3 7 ith & help on the ACL editor. 

3 § oe 8 1! 

3 9 039 1: ENVIRONMENT: 

; 40 0040 1! 
3. CGT 0041 1! VAX/VMS operating system, user mode utilities. 
3 $6 94 1: 

fo Si 

> 45 boe8 1} 

3 : ones ' AUTHO? L. Mark Pilant CREATION DATE: 15-Sep-1982 15:30 

: 48 0048 MODIFIED BY: 

: $0 050 1! vO3-005 LMP0279 L. Mark Pilant, 13-Jul-1984 16:12 

3 5 eh ! Fix the text of the suffix message rad in format mode. 

: 5 3§ 1 i v03-004 LMP0213 Mark Pilant -Mar-1984 12:23 

; 33 32 : Add support for tech ten and unlocking the a = ACL. 

; 8 056 | i v03-003 LMPO172 Mark Pilant, 29-Nov-1983 12:42 

re. 0057 1! Add support for Vigne terminals. 
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v03-002 LMP0103 Pilant 
Add support for hippen and PROTECTED 


v03-001 LMP0076 
Add support for 


LIBRARY ‘SYSSLIBRARY:LIB.L32"; 
REQUIRE *SRCS:ACLEDTDEF'; 


rEosen-1964 24:41:50 


L. Mark ont. 
a key betinie on file. 


AX-11 BLi 
ACLEDT.SR 


9-Apr=1983 8:4 


28-Jan-1983 12:15 
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$ 70 H 1 1 FORWARD ROUTINE 

. § 1 AED_GIVEHELP, Provide the user with help 

; f ? ! AED_HELPOUTPUT; ! Output routine for help 

s 5 1 EXTERNAL ROUTINE 

. re $ 1 vee -DECODE 

‘tee . 1 PUTOUTPUT : General rpose output routine 
an 1 LBRSINL acon NTROL : ADDRESSING MODE (GENERAL), nitialize the ontrol block 
= 1 open : Prt $4 | fe asi (GENERAL), ipen the hetp f 

3 LORSoE HELP : Appaee ING 800 (G ae i ett the desired ne lp text 
3 LBRSCLOSE : ADDRESSING-MODE (GENERAL); ose the help file 

3 ¢ 1 OWN 

: 1 NO_TEXT; ! Text present indication flag 


| 
| 
EKEY, ' Key action decoder 
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14-Sep-1 ACLEDT.SRCJAEDHELP.B32;1 
GLOBAL ROUTINE AED_GIVEHELP = 


i FUNCTIONAL DESCRIPTION: 

: This routine is the main routine for providing interactive help. 

: It displays the appropr tate Boypes layout, and waits for the user 

: to type in some character (or characters) to determine what help 

} is to be provided. 

i CALL SEQUENCE: 

: AED_GIVEHELP () 

i INPUT PARAMETERS: 

; none 

t 

i IMPLICIT INPUTS: 

: AED_W_TERMIN: terminal input channel 

i QUTPUT PARAMETERS: 

: none 

i IMPLICIT OUTPUTS: 

none 

i ROUTINE VALUE: 

; 1 if successful 

status code otherwise 

i SIDE EFFECTS: 

none 

leo 

BEGIN 

LOCAL 
LIBR_INDEX, ! Library index 
HELP_TYPE, ! Type of help (Keypad or format) 
HELP_KEY ! Addr of the sub-key descr 
FIELB_INDEX, i Field index in ACE 
ITEM_INDEX, ! Item index within field in ACE 
ITEM Linit. ! Largest item index allowed 
LOCAC_STATUS, ! Local routine exit status 
TERM_CHAR ! Terminator character/action number 
TERM~DESCR SBBLOCK COSCS$C_S_BLNI, ! Terminator descr 
TERM_TABLE VECTOR (4) ! Terminator table 

INITIAL (REP 4 of (-1)); ! ALL are terminators 

BIND 
HELP_FILE = SDESCRIPTOR ("SYSSHELP:ACLEDT.HLB"), 
NEW_KEY_MSG = SDESCRIPTOR (ZCHAR (AED_C_CHAR CR, AED_C_CHAR_LF), 


ZCHAR (AED_C_CHAR_CR, AED_C_CHAR_LF), 


‘To return to the keypad diagram, ', 


a 3 
DSHELP 15-Sep-1984 AX-11 Bliss-32 V4.0-742 Pa 5 
yon e008 VeaeettSRe FF35:32 «PARTE D Obsega3s Mts ts2, 9 635 
; 14 P 059 ‘oress the return key 
; 128 P 38 Ha (AED_C_CHAR_CR, Y hen. C_CHAR_LF), 
3 (146 p 38 "To exit from HELP, press the ubkecfper’- 
> 145 P 0595 ZCHAR (AED_C_CHAR_CR, AED_C_CHA 
; re . 38 corp hele Sn“the ACE’ format™ press the ', 
: 148 P 38 XCHAR “Oe6 C_CHAR_CR, AED_C_CHAR_LF), 
; (16 P 05 For help on” a other keypad key, ', 
; 131 4 ‘press the key’ 
3 1 g 4 0¢ NEW_KEY_MSG1 = SDESCRIPTOR (ZCHAR (AED_C_CHAR,CR, AED_C_CHAR_LF), 
: 154 P XCHAR (AED .C_ CHAR. “ta, AED_C_CHAR_LF), 
3 155 P 0605 ‘To return’ to the” keypad diagram, ', 
a § $ P Be ress the return 
: 4 P 060 ‘ HAR (AED Cc. _CHAR ck” AED_C_CHAR_LF), 
: 158 p one HELP, press “fhe eaapeeener 4 
: 159 P 060 SCHAR (AED. c" CHAR_CR, AED_C 
; 199 4 pei? 4b select “the next field; ee “the ', 
; P 061 ZEMAR AED ’C_CHAR_CR, AED_C_CHAR_LF) 
3 18 PR be18 "To select “the gent item, press the ', 
3 164 0614 ‘keypad period’) 
: 18 O616 § CHSFILL (0, DSCSC.S BLN, TERM DESCR); 
> 167 bei? TERM_DESCR(DSC$W_C 
3 168 0618 TERM_DESCREDSCS$A_ “POINTER] = TERM. TABLE; 
: 170 0620 2 AED_L_FLAGSCAED_v 6OLDKEY] = 0; 
3 171 06 1 SCRSERASE PAGE Ur 
3 178 Oe 5 ! Open the help file if not already open. 
: 175 0625 2 LOCAL_STATUS = LBRSINI_CONTROL (LIBR_INDEX, %REF (LBRSC_READ)); 
: 176 0626 2 IF NOT .LOCAL_STATUS 
3 17 0627 N 
4 138 0 5 SIGNAL (.LOCAL_STATUS); 
3 180 4 RETURN .LOCAL_STATUS; 
:° 18 3 
: 188 0638 LOCAL STATUS = LBRSOPEN (LIBR_INDEX, HELP_FILE); 
; 185 4 IF NOT -LOCAL_STATUS 
: 4 6 BEGIN 
: 187 O83 SIGNAL (.LOCAL_STATUS); 
; is O38 A LOCAL STATUS; 
: 190 640 : 
: 191 641 HELP_TYPE = (IF AED L_FLAGSCAED V_ACEFORMAT) 
: 198 j THEN SDESCRIPTOR CoACE FORMAT") 
: 19 64 ELSE IF .AED_L_ FLAGS AED V_VT2Xx] | 
: 194 4 THEN $DESCRIPTOR ('vT200")~ 
: 195 645 ELSE IF wAED_L FLAGSEABD V.VT1KX0 
: 198 gs TEEN ee TOR AGStAED. ¥_VTSK3 
: 198 0648 fre SDESCRIPTOR Cruse T 


= 
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2 

ae 6 

; iF HELP_TY 

; SCR RSSET_CURSOR 

; ¢ BRSGET “HELP wl tek INBEX AED 1 seneuanne. AED_HELPOUTPUT, 0, HELP. TYPE); 
; AED“L ET ace AEB - ACEFORMAT] THEN AED.PUTOOTPUT (NEW_KEY_MSG1) 
: 306 IF ght CORSOR (24,715; 

3 $ ! Loop getting input characters to give help on until a space is seen 
; 208 38 WHILE 1 

; 209 dO 

3 19 $9 EG] 

Ss 6 HELP_KEY = =1; 

: ig é TERM CHAR = AED_DECODEKEY_ (); 

3; 2 ae © FLAGSCAED™ V_GOLDKEY] = 

3 1 eC) TTERM_CHAR EGL~O THEN RETURN 0; 

: \$ Bee ! Choose the appropriate action based upon the character typed. 
: 218 0668 IF NOT .AED_L_FLAGSCAED_V_ACTIONKEY) 

5 19 0669 THEN 

3 220 0670 4 BEGIN 

; 1 0671 4 SELECTONE .TERM_CHAR OF 

Sh 8 Pe 

; $se bere ? ! Space - no further help required. 

BS ar 

; 228 0678 5 LaF LAGSCAED V_ACEFORMAT] = 0; 

3: 229 0679 5 SERSERASE P 

3 330 0680 5 RETURN PBRSCLOSE (LiBk_ INDEX); 

i RS ~ 

oo ge a 1 ths 

3 235 0685 4 (%x'09'): 

; $36 0686 5 BEGIN 

: 44 0687 5 HELP TYPE = SDESCRIPTOR (*ACE_FORMAT); 

: 239 0689 2 AED C_FLAGS hed v ACEFORMATA = 

: 340 0690 5§ TECD“INDEX = ITEA_I = 0; 

: 41 9691 4 EAB: 

: 248 O37 2 ! Carriage return - put up the keypad display. 

; 45 Og9s 4 C%x'0D"): 

: “3 97 6 HELP_TYPE = CF ~AED_L_FLAGSCAED_V_VT2XxJ 

> 248 0698 6 i SDESCRIPTOR (*9T200") 

> 249 $99 6 ~AED_L_FLAGSCAED_V_VT1XX 
3: 250 9 0 THEN $DESCRIPTOR ('VT100") 

: 2} , 1 ; aay ELSE SDESERIPTOR (*vT52")); 

; § 0708 AED ad KET AGSCAED. V_ACEFORMAT] = 0; 

3 54 704 4 END 

8 55 0705 4 
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IN 
aon 


Question mark = starting up help. 


C2C°?"): 


BEGIN 
Sie. ae (*STARTING_UP*); 


HELP 
END 


BEGIN 


CASE .TERM_CHAR FROM 1 TO KEY_C_MAX_CODE=1 OF 


Backspace 
CKEY_C_MOVE_BOLJ: 
Linefeed 
CKEY_C_RUB_WRDJ: 
Ctrl/R or Ctrl/wW 
CKEY_C_REFRESH): 
Ctrl/U or Ctrl/x 
CKEY_C_RUB_BOL): 


! Ctrl/Z 


CKEY_C_EXITJ: 


' Ctrl/A 


CKEY_C_OVERSTRIKE): 
Rubout character 
CKEY_C_RUB_CHRJ: 


CKEY_C_INSERT, 
KEY~C"MOVE_ACE): 


CKEY_C_MOVE_WRD): 
CKEY_C_MOVE_EOLJ: 
CKEY_C_ENTER): 


CKEY_C_ADVANCE, 
KEY~C~BOTTOM): 

(KEY_C_BACKUP, 
KEY"C~TOP): 


HELP_KEY 


HELP_KEY 


HELP_KEY 


HELP_KEY 


HELP_KEY 


HELP_KEY 


HELP_KEY 


HELP_KEY 
HELP_KEY 
HELP_KEY 
HELP_KEY 


HELP_KEY 


HELP_KEY 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 
SDESCRIPTOR 
SDESCRIPTOR 
SDESCRIPTOR 


SDESCRIPTOR 


SDESCRIPTOR 


("017"); 


(*018"); 


(°019"); 


("020"); 


("022"); 


(°025"); 


("000"); 


("001"); 
(*002"); 
(*°003"); 
('004'); 
("005"); 


("006"); 
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; 763 4 KEY_C_DEL_CHR, 

; 12 He ? COE Y-E-DADEL CARI : HELP_KEY = SDESCRIPTOR ('007"); 

; 766 4 KEY_C_DEL_wRD 

3 7 ref 2 KEY"C"UNDEL_WRDJ: HELP_KEY = SDESCRIPTOR ('008"); 

; 19 789 4 CKEY_C_GOLD): HELP_KEY = SDESCRIPTOR ('009"); 

: ri KEY_C_HELP 

3 ; Ore 4 OEEY-E-HELPEMT : HELP_KEY = SDESCRIPTOR ('010'); 

4 KEY_C_FIND_STR 

; ; His é CRE YEE INDINATS : HELP_KEY = SDESCRIPTOR ('011"); 

: 77? & CKEY_C_DEL_ACE 

; $ ? KEY-C"UNDEL_ACEJ: HELP_KEY = SDESCRIPTOR ('012"); 

; $0 0780 4 CKEY_C_UP): HELP_KEY = S$DESCRIPTOR ('013'); 

: 078¢ 4 CKEY_C_DOWN: HELP_KEY = SDESCRIPTOR ('014"); 

; 0784 4 CKEY_C_LEFT): HELP_KEY = SDESCRIPTOR ("015"); 

; 0786 4 CKEY_C_RIGHT): HELP_KEY = SDESCRIPTOR ('016"); 

: 0788 4 CKEY_C_SEL_FIELD 

; 0789 4 KEY~C~ADV-FIELD): 

; $e 3 eo AED_L_FLAGSCAED_V_ACEFORMAT] 

; 079¢ 3 THEN HELP_KEY~= SDESCRIPTOR ('023°) 

; $794 ELSE GIN 

; 0795 , HELP_TYPE = (CASE .FIELD_INDEX FROM 0 TO 2 OF 

; $738 7 01: SDESCRIPTOR ('ACE_TYPES'); 
: 0798 7 13: SDESCRIPTOR ("ACE FLAGS"): 
; 0799 7 2): SDESCRIPTOR (*ACCESS_TYPES"); 
: 0800 8 OUTRANGE]: BEGIN 

: 801 FIELD_INDEX = 0; 

; 80 : SDESCRIPTOR (*ACE_TYPES") 
; ta 6 TES); ‘ 

; 0805 6 HELP_KEY = 0; 

; 8 6 FIELB_INDEX = .FIELD_INDEX + 1; 

3 0807 3 JTER_INDED s 0; 

: 3 ee 

; HH 4 (KEY CSEL_ITEMI: 

; IF NOT .AED_L_FLAGSCAED_V_ACEFORMAT) 

; 4 ; ines HELP_KEY™= SDESCRIPTOR ('024") 

: 16 6 BEGIN 

; TEM_INDEX = .ITEM INDEX + 1; 

: O817 $ are miey = (CASE .ITEM_INDEX FROM 0 TO 8 OF 

; 3 ” 

; 0819 7 SET 


DOOCOOCOCOCOOCOSOOSOOCOSOOSOSOOOSO OOOO OOOOOOOOOOoOOO 


8 
$8 
840 
841 
se 
84 
844 
845 
B66 
84 
848 
849 
850 
Hh 
$s 
4 854 
855 
& Bao 
85 
408 858 
409 859 
410 860 
411 861 
ns 
414 a4 
oi2 865 
He 
is 
420 0 
421 71 
; 422 72 
; INFO#250 


; Refer 
; INFO 


BBB EE DNMND MANNIE BBE EEE PWN BBB EF PNA NOODONN NNN 


ONOULS WN O 


OUTRANGE) : 


TES); 
END; 
END; 
! Unknown terminator codes 
CINRANGE ,OUTRANGE]: HELP_KEY = -1; 
TES; 
END; 


IF ,HELP_KEY GEQ 0 
THEN 


BEGIN 
SCRSERASE PAGE (1, 


1); 
SCRSSET ~CORSOR (1, 1); 
NO_TEXT™= 
LBRSGET HELP (LIBR_INDEX, AED_L 
-HELP_TYPE, AHECPK 


IF _ .NO_TEXT 
THEN 


BEGIN 
Ade INDEX = 1; 


1986 11:52:24 — EACLEDr’SRESAEDHELPLAS271 


0 
0 
EX = 0; 


TOR «'000") 


NA DW MMMMMMMMO 
Z2zo=-movcvVve°v77°7o°0O": 


“n° AED_HELPOUTPUT, 0, 


NO_TEXT = 
LBRSGET _HELP (LIBR_INDEX, “ L tye AED_HELPOUTPUT, 0, 


-HELP_TYPE, ~ By ED_L_F 

CINE $oES CRiPT ('000") ELSE 

IF .NO_TEXT THEN LBRSGET “HELP. CBR INDEX” 
AED_RELPOUTPUT , ~ 


END 
AED. L_FLAGSTAED_V_ACEFORMAT 
AED_PuTOUTPUT TNEW_KEY_MSG1) 


N 

SsET_CURSOR ( (24, 1); 
END; 

RETURN 1; 

END; 


L1:0795 
nced LOCAL symbol FIELD INDEX is probably not initialized 
; Referenced LOCAL symbol I[TEM_INDEX is probably not initialized 


LAGSEAED V ACEFORMAT). 
_PAGEWIDTH, — 


AED. 
> .HELP_TYPE); 


FY. NEQ OTHER AED_PUTOUTPUT (NEW_KEY_MSG); 


! End of routine AED_GIVEHELP 


ISegeoe 


198 fi:soi20 — Fatlepr’SaeSacoutce asec 


-TITLE AEDSHELP 
IDENT \v04- 600\ 


»PSECT AED_COMMON,NOEXE, OVR,0 


00000 AED_L_FLAGS: 


LKB 
00004 AED_B -0PiTONS: 


LKB 

90005 -BLKB 
0 AED_L_OBJTYP: 
CO00C AED_Q_OBJNAM: 
-BLKB 

00014 AED_L -WORSTERR: 

00018 AED_L -PAGEWIDTH: 

0001C AED_L_ _PREESITE: 

00020 AED_B ert 


00084 


O03 -BLKB 
0028 AED_B_SAVE_COL: 
-BCKB 


00029 


-BLKB 
0002C AED_B_SAVE LIN: 


00020 


-BLKB 
000 AED_O_LINETABLE:: 
0003¢ AED_L_CURACE : 
00040 AED_L ~FIRSTLINE: 
00044 AED_L -LASTLINE: 
00048 AED_L -BEGINL INE: 
0004C AED_W_INPUTLEN: 
BLKB 


0004 


0069 
006C 


«BLK 
AED_B_LINE: 
-BLKB 


-BLKB 
00050 AED_Q_DEL vr ¥ 
00058 AED_Q_DEL ty 
00060 AED_Q_DEL ry 
00068 AED_B_DEL_CHAR: 

-BLKB 


-BLKB 
AED_A_ACLBUFFER: 


-BCKB 


we we owe owe oO OO OF Uw CO 
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4 
00070 AED.0_OUTT INE: 


-BLKB 
00078 AED_W_OBJCHAN: 
-BLKB 


O7A -BLKB 
007C AED_W et 


S05 env eit 
BOOBS AED Ww, ig ce 


Q008C AED_L. STATUS: 
00090 AED_B_FIELD: 
-BLKB 
00091 -BLKB 
00094 AED_W_FIELDBEG: 
-BLKB 
$0038 -BLKB 
0098 AED_W_FIELDEND: 
-BLKB 
0009A -BLKB 
0009C AED_B_ITEM: 
-BLKB 


00090 -BLKB 
QOOAO AED_W_ITEMBEG: 
-BLKB 


000A2 “BLKB 
OOOA4 AED_W_ITEMEND: 
-BLKB 


00046 -BLKB 
AED_B_ACETYPE: 
-BLKB 


mn Wwe FN MPT Ow FM FON Ow OE OU FOF fOr «oO 


OOA9 -BLKB 
OOAC AED_W_JOURNAL : 
-BLKB 
OOA -BLKB 
00B0 AED_T_CURLINE: 
-BLK 532 
002C4 AED_W_TOTALSIZE: 
-BLKB 
po eee -BLKB 
02CB JOURNAL FAB: | 
° LK 80 | 
00318 JOURNAL _NAM: 
-BLKB 96 | 
00378 JOURNAL_RAB: | 
-BLKB 68 
0038C coed 88 
00414 JOURNAL _BUFFER: 
-BLK 10 
LKB 2 


80626 JOURNAL _iNDER: 


4 
1S-seo-1986 8:41:50 yal! Olisg=32 yoz0-742 Page 12 
-BLKB 4 
00424 RECOVER FAB: 


-BLKB 80 
00474 RECOVER_NAM: 

-BLKB 96 
00404 RECOVER_RAB: 

BLKB 68 
00518 RECOVER.GUFFER: 


8338 necoven. ite 


-PSECT SPLITS,NOWRT,NOEXE ,2 


FREFFFa@ P.AAA: .LONG -1(4] P 
4 3 0 MW P.AAC: .ASCII \SYSS$HELP:ACLEDT.HLB\ : 
3 -BLKB 1 e 
50003 024 P.AAB: .LONG 19 : 
000000" 00028 ADDRESS P.AAC : 
OA D 0002C P.AAE: -ASCII <13><10> F 
D 20 O0002E ASC]  \nwwnwnnnnnnnneee \ : 
D 00050 3 
OA OD tr) ASCII <13><10> : 
F 54 0004 ASCII \To return to the keypad diagram, \ : 
0 65 0004F : 
90 9 F : 
B88 ASCII \press the return key\ : 
BA op 0073 ASCII <13><10> : 
of ie st eASCII \To exit from HELP, press the spacebar\ : 
61 76 009 3 3 
OA OD 0009C eASCII <13><10> : F 
6F 4 009E ASCII \for help on the ACE format press the \ 3 3 
41 $ OAD : j 
73 pat 3 3 
61 74 Cc eASCII \tab key\ : ‘ 
OA OD OQOOCA ASCII <13><10 3 | 
of 29 OOCC ASCII \for help on any other keypad key, \ : i 
g $ EA 3 
72 70 €E ASCII \press the key\ : 
FB BLKB 1 


P.AAD: LONG 207 
-ADDRESS P ~~ 
P.AAG: .ASC <1$>< 0> 


<13><10> 
\To return to the keypad diagram, \ 


ASCII \press the return key\ 
<13><10> 
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15-$ P 
14-Sep-1 CLEDT. SRCTAEDHELP.B3251 eee 635 | 
45 & ee 7% 0 6F 54 0014F A \To exi 3 ; 
$3 $8 29 4 4 3 $6 $9 és if 1 $3 ee i ie F ScIl © exit from HELP, press the spacebar\ | 
+ | 
A OD 00174 SASCII <13><10> : 
$f 20 $3 4 oS $? Hy $3 $3 of eg 29 30 gf 1% ASCII \To select the next field, press the \ : | 
0 74 1 : | 
37-20 z0 61 70 79 $ B 0019A ASCII \k 7\ ‘ | 
“ A fp 12 ASELT eT Sect a> : 
$f 3 $3 $8 i $f fs $3 $3 gc 63 : 90 of ; 1 ASCII \To select the next item, press the \ : 
7 2 2 : 
64 6F 69 72 65 70 20 64 2 : $§ 63 if ASCII \keypad period\ : 
SSE. BRIS eames Lie ; 
54 41 4D 52 GF 46 SF 45 8 4 aes P.AAL: ASCII s Ace _FORMAT\ : 
000000A OO1E8 P.AAH: :LONG 10 F 
090000 * OO1E -ADDRESS P.AAI : 
30 30 32 56 56 OOTFO P.AAK: <ASCII  \VT200\ : 
O1F “BLKB 
0000005 O1FB P.AAJ: <LONG : 
0000000" O01FC “ADDRESS P.AAK : 
30 30 31 54 56 99 00 P.AAM: ASCII \VT100\ : 
020 -BLKB 
00000005 00208 P.AAL: <LONG ; 
00 00 0" 0020¢ “ADDRESS P.AAM : 
32 35 6 00210 P.AAO: ‘cASCII \vT52\ ; 
00860 004 00214 P.AAN: .LONG 4. : 
000 0000" 00 18 “ADDRESS P : 
54 41 4D 52 GF 46 SF 45 & 0 16 P.AAQ: “ASCII vate. APORMAT\ ; 
0000000A 00228 P.AAP: .LONG 10 ; 
00900000" 3 C “ADDRESS P.AAQ : 
30 30 32 54 56 00230 P.AAS: <ASCII \VT200\ , F 
90000005, 00938 P.AAR: “LONG 
00900000" 80 te “ADDRESS P.AAS ; 
30 30 31 54 56 00 49 P.AAU: “ASCII \VT100\ : 
00000005 00248 P.AAT: LONG : 
00900000" 0 4¢ “ADDRESS P.AAU ; 
32 35 54 56 50 P.AAW: ASCII \VTS2\ : 
00 00 vA 24 P-AAV: .LONG F 
0 9° 8 “ADDRESS P.AAW : 
50 55 SF 47 4E 49 54 52 41 54 3¢ P.AAY ASCII \STARTING UP\ : | 
00000008 68 P.AAX: .LONG 11 ; 
00900090" 6 “ADDRESS P.AAY ; | 
37 31 16 P.ABA -ASCII \oi7\ : | 
900000 74 P.AAZ: LONG 3 : 
00900 * 00278 “ADDRESS P.ABA : 
38 (31 43 P.ABC: .ASCI \oi8\ : 
00000 P.ABB: .LONG 3 : 
Niddittt 0 ae “ADDRESS P.ABC : 
| 
| 


4 | 
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P.ABE: .ASCII \O19\ : 
LKB 


P.ABD: .LONG : 3 
SADDRESS P.ABE : 
94 P.ABG: ASCII \020\ : 
97 -BLKB 
98 P.ABF: .LONG 3 
9 -ADDRESS P.ABG : 
AQ P.ABI: .ASCII \022\ ; 
A . LKB | 
AS P.ABH: .LONG : 
As -ADDRESS P.ABI ; 
AC P.ABK: <ASCII \025\ : 
AF -BLKB } 
BO P.ABJ: LONG : 
B4 SADDRESS P.ABK ; 
BB P.ABM: ASCII \000\ ; | 
BB -BLKB) 
Bf P.ABL: .LONG 3 : | 
C -ADDRESS P.ABM : 
C4 P.ABO: .ASCII \001\ F | 
C7 -BLKB 1 
C8 P.ABN: .LONG 3 3 
¢ -ADDRESS P.ABO : 
P.ABQ: .ASCII \002\ ; 
D -BLKB | 
D4 P.ABP: .LONG 3 : | 
D8 “ADDRESS P.ABQ : | 
DC P.ABS: .ASCII \003\ : 
D ‘BLKB) 
£0 P.ABR: .LONG 3 : 
-ADDRESS P.ABS : 
£8 P.ABU: .ASCI] \004\ : 
EB -BLKB | 
EC P.ABT: .LONG : 
F .ADDRESS P.ABU : 
F4 P.ABW: . ASCII \005\ F 
‘7 -BLKB 
FB P.ABV: .:LONG 3 : 
F -ADDRESS P.ABW ; 
P.ABY: .ASCII \006\ ; 
-BLKB 
P.ABX: . LONG ; 
-ADDRESS P.ABY ; 
C P.ACA: .ASCII \007\ ; 
F -BLKB 
10 P.ABZ: .LONG : 
14 “ADDRESS P.ACA ; 
18 P.ACC: <cASCII \008\ ; 
1B -BLKB 
1 P.ACB: .LONG ; 
-ADDRESS P.ACC ; 
4 P.ACE: ASCII \009\ ; 
7 “BLKB 
8 P.ACD: .LONG : 


-ADDRESS P.AC 
P.ACG: .ASCII \010\ : 


voe=008” 


53 


53 


53 45 50 59 


53 


45 


47 


bY) 


P) 


50 


41 


5F 


50 


59 


4c 


53 


59 


54 


46 


53 


oe 


SF 


SF 


45 


5F 


sey 
0000003 


3631" 30 


“9 38h. 
9% 
sh 
a 


00000003 


So 


iEiger 


3 
P.ACF: 


C P.ACI: 
0 P.ACH: 
8 P.ACK: 
P.ACJ: 
PACH: 
8 P.ACL: 


C P.ACQ: 
% P.ACP: 
78 P.ACS: 
7C P.ACR: 
P.ACU: 
P.ACT: 
P.ACW: 

ACV 


P.ACY: 
P.ACX: 
P.ADA: 

CZ: 


P.ADC: 
P.ADB: 
P.ADE: 
-ADD: 
-ADG: 
ADF: 
P.ADI: 
P.ADH: 


ADO FOM ADE UOM DAD EOFOO RONSON SUF ONDOROm 
v7 wv Vv wv wv 


be 49:52:30 


[ADDRESS P.AC 
$ j Tkite 


ov 


G 
men 


. ADDR RESS’P 
ASCII 
-BLK 

: LONG 
eADDRESS P.ACW 
ry \ACE_FLAGS\ 


‘A \Aces “TyPES\ 


- LONG 
eADDRESS P.ACY 
“ASCII \ACCESS_TYPES\ 
-LONG 1 
eADDRESS P.ADA 
“ASCII \ACE _TYPES\ 


AX-11 Blis 
ACLEDT.SRC AEDHE 


Ma Oe Be Oe Oe Oe Be Be Be Ge Be Be Be Se Se Be Se Se Se Se Fe Se Se Se Se Se Se we Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se BH Se Se Se Se Se Se we 


a me 


agp? tose 


“198e f4:52:3¢ — EACLEDr®SRESAgbne LP resort tee 


.PSECT SOWNS,NOEXE,2 
00000 NO_TEXT:.BLKB 4 


| 
| 
00 , .ADDRESS P.ADI ; 
32 8 98 P.ADK: “ASedi \062\ : | 
88 P.ADJ: .LONG ; 3 
y -ADDRESS P.ADK : 
33 P.ADM: ASCII \003\ F | 
1 -BLKB | 
14 P.ADL: LONG : | 
* 00418 “ADDRESS P.ADM : 
34 1C P.ADO: <ASCII \004\ : 
1F -BLKB } 
00 0 P.ADN: ;LONG : 
' 4 -ADDRESS P.ADO : 
35 8 P.ADQ: <ASCII \005\ : 
-BLKB } 
000 P.ADP: :LONG : 
9 ' “ADDRESS P.ADQ : 
36 P.ADS: ASCII \006\ : 
0900000" PADRE ADDRESS. PADS 
37 $3 8 40 P.ADU: .ASCII \007\ : 
4 *BLKB 
00003 44 P.ADT: <LONG 3 : 
0090" 48 -ADDRESS P.ADU ; 
30 4C P.ADW: <ASCII \000\ : 
Af “BLKB 
90000008 00450 P.ADV: :LONG 3 : 
* 00454 SADDRESS P.ADW : 
30 00458 P.ADY: <ASCII \000\ F 
0458 *BLKB 
0000003 0456 P.ADX: LONG 3 : 
0000000 “ADDRESS P.ADY : 


HELP_FILE= P.AAB 

NEW_REY_MSG= P.AAD 

NEW"KEY"MSG1= P.AAF 
-EXTRN CLISGET VALUE, CLISPRESENT 
-EXTRN LIBSFREE VM, LIBSGET_VM 
-EXTRN LIBSTPARSE, SCRSDOWNSCROLL 
TEXTRN SCRSERASE LINE, SCRSERASE PAGE 
TEXTRN SCRSSET_CORSOR, SCRSSET SCROLL 
-EXTRN SCRSUP_SCROLL, AEDS OBJCOCKE 
-EXTRN AEDS$_BADKEEP, AED$_COCATERR 
-EXTRN AEDS"INIREADERR 
SEXTRN AEDS~JOUWRITERR 
-EXTRN AED$~JOUOPENOUT 
EXTRN AEDS" JOUCLOSOUT 
-EXTRN AEDS"RECREADERR 
EXTRN AEDS"RECOPENIN, AEDS RECLOSEIN 
“EXTRN AEDS"BADUIC, AEDS_BAOGRPMEM 
EXTRN AEDS"SYNTAX, AEDS ~BADTYPE 
-EXTRN AEDS"NOITEMSEL, AEDS_MUSTENTER 


re oe 7 
4 | 
P ibese -1 241: AX-11 Bliss-32 v4.0-742 P 7) 
ret 1eaeeei She Hisbide «| FARE ObhesaBs atts asses at rig 
-EXTRN AEDS_INIOPENIN, AEDS_INICLOSIN | 
SEXTRN AEDS"DEFSYNTAX, AEDS-NODELET 
“EXTRN A DS-NORODIFY AED$_ROHIDDEN 
SEXTRN AED DUPLICATE, AEDS_NOCOMG INE 
“EXTRN A D$“NODEF AUL * AEDS$"NOCTRLCHAR | 
-EXTRN AEDS-NOTFOUND, AED$_CONTROL_C 
-EXTRN AEDS-ACLUPDATED 
sEXTRN AEDS NOCHANGE , AED_DECODEKEY 
-EXTRN AED _PUTOUTPU LBRSINI CONTROL 
SEXTRN LBRSOPEN, LORS$GET HELP 
SEXTRN LBRSCLOSE, LIBSSIGNAL 
.PSECT SCODES,NOWRT,2 | 
OFFC 00000 ENTRY AFD_GIVEHELP, Save R2,R3,R4,R5,R6,R7,RB,RI,-; -_ 
B 000000006 9E 900 MOVAB LIBS$SIGNAL, R11 ; 
A 0 00 G 9— 000 MOVAB LBRSGET HELP, R10 : 
9 006 9€ 0001 MOVAB SCRSERASE PAGE, R9 ; 
: 000000006 9— 0001 MOVAB SCRSSET_CORSOR, RB F 
q 0000 ep ee Oo18 nOVA ADL FLAGS, R? : 
08 ac 0000" CF 0 ; 0026 MOVCS #16, P.AAA, TERM_TABLE + 0583 
08 6E a 00 C 90 p mOVCS #0, (SP), #0, #8, TERM_DESCR ; 0616 
18 AE 5 0 000 MOVW #16, TERM_DESCR : 0617 
iC aE 08 AE E 000 MOVAB TERA TABLE, TERM_DESCR+4 : 0618 
01 A 08 8A 000 B1¢B #8, RED_L_FLAGS+T ; 9620 
| ime) tee 
69 2 Ff boce CALLS a2 SCRSERASE _PAGE F 
6E 1 pO 00048 MOVL #1. (SP) : 0625 
08 3 4 ir PUSHAB Ter INDEX ; 
woe A eee Be rene spam ; 
A E8 O00SA BLBS LOCAL STATUS, 3$ ; 0626 
OE 67 0 E1 00050 C #3, AED_L_FLAGS, 1% + 0629 
13 bb 00083 PuSHE  2t 
69 02 FB 0063 CALLS a, SCRSERASE _PAGE : 
33 Bb ooosA PUSHE #21 = 
68 FB 0006C CALLS 2+ SCRSSET_CURSOR ; | 
pe Soe tS: USA LOCAL a TATYS aes 
0B ey 3 ft 7% BBC #3. AED L FLAGS, 2% : 
£ 20 A? 9A 00078 MOVZBL AEO_B_COLOMN, -(SP) ; 
RIES BRUT SPEER ile | 
8 3 a8 2: ITB Evi STATUS, #7 ; | 
50 52 03 0 EF PXTIV #0, #3, LOCAL_STATUS, RO : 
50 4 =A 0 FD 0 CMP2V #0, #3, AED_L“WORSTERR, RO ; 
$5 41 0009 Bha’(iéSS : 06 
0000' CF 9F 00097 3s: PUSHAB HELP_FILE ; $038 


; | 
IEAM HEMEL UN SenEBSB, « 


<> i 


08 AE 9F 00098 PUSHAB LIBR_INDEX ; : 
000000006 9 F CALLS as. CBRSOPEN : 3 
D A V RO, LOCAL STATUS : ; 
i E BLBS  LOCAL_STATUS, 8$ : 0634 ; 
OE 7 E1 O00AB #3, AED_L_FLAGS, 4$ t 0637 ; 
1 DD OOOAF PUSHL # : : 
DD 0008 PUSHL #21 : : 
69 0 FB 08 CALLS #2, SCRSERASE_PAGE : : 
DD 86 PUSHL # : ; 
15 DD 0008 PUSHL #21 : : 
48 FB OOOBA CALLS #2, SCRSSET_CURSOR : 3 
DD 9080 4$: PUSH LOCAL STATUS : ; 
68 FB OOOBF CALLS #1, LIBSSIGNAL : ; 
0B : 03 Fi o0Ce BBC #3, AED_L FLAGS, 5$ ; : 
E 30 A? 9A 000C MOVZBL AED_B_COLOMN, -<(SP) : ; 
3 4 A? OA OCA MOVZBL AED_8 LINE, =(SP) : : 
6 iY FB OOOCE CALLS #2, SCRSSET CURSOR : 3 
07 3¢ 9 9001 5$: BITE LOCAL STATUS, f : ; 
03 00 EF 00006 EXTZV #0, #3, LOCAL_STATUS, RO : 
03 00 ED 000DB CMPZV #0, #3, AED_L-WORSTERR, RO : 
04 18 000E1 BGEQ 30s 7$ : 
A? 3 DO O00E3 6$: MOVL § LOCAL_STATUS, AED_L_WORSTERR : 
50 5 b0 OO0E7 $: MOVL LOCAL“STATUS, RO + 0638 
A? 04 €1 OOOEB 8$: BBC #4, AED_L_FLAGS+2, 9$ + 0641 
53 0000° cr 5 358 MOVAB P.AAH, RECP_TYPE + 0642 
67 5 E1 O00F7 9$: BBC #2, AED_L_FLAGS, 10$ + 0643 
53 0000" CF 9E 900r8 MOVAB P.AAJ, RECP_TYPE + 0644 
67 O, €1 ObIGe 108: Sata” EDL FLAGS, 118 + 0645 
53 0000" CF 5 $0106 MOVAB P.AAL, RECP_TYPE > 0646 
Oc 11 00108 BRB 13 : 
07 67 9 00100 11$:  BLBC AED_L_FLAGS, 12$ + 0647 
53 0000" CF 9E€ 00110 MOVAB P.AAN; HELP_TYPE : 0648 
0@ 11 90113 BRB 1 : 
53 D4 00117 128: CLRL HELP_TYPE + 0647 
3E 1300119 13$: BEQL 18$ : 0650 
01 oD 90118 PUSHL #1 + 0651 
01 DD 00110 PUSHL #1 : 
0¢ FB OO11F CALLS #2, SCRSSET_CURSOR F 
3 DD 00122 PUSHL HELP_TYPE : 0652 
E b4 1 4 CLRL. = (SP ; 
0000v CF 9F 00126 PUSHAB AED_HELPOUTPUT : 
18 A? 9F OO12A SHAB AED"L_PAGEWIDTH : 
14 AE 9F 001 PUSHAB IBR NDEX : 
05 FB 001 CALLS #5, CBRSGET_HELP : 
04 FI 1 ¢ #4; AED_L FCAGS+2, 16$ + 0653 
0000" CF 9F 00138 14$: PUSHAB NEW_KEY : 
1 FB ot c 15$: CALLS #1, ~AEDPUTOUTPUT ; 
1 0D 00141 16$:  PUSHL #1 + 0654 
18 DD 0014 PUSHL #24 ; 
FB 0014 CALLS #2, SCRSSET_’ URSOR : 
CE 00148 17$:  MNEGL #1. HELP_K : 0661 
0 FB 148 CALLS 40, AED _BECODEKEY > 0662 
DO 0015 VL —sRO,:~ TERA_CHAR : 


01 A? 8 8A 001 : BICB2 #8, AED_L_FLAGS+1 
4 1 TSTL TERM. CHAR 
159 188 BNEG = 
02 : 158 BRW 7 
65 02 a7 1 5 19$: BBS #5, AED L FLAGS#2, 27$ 
20 4 16 CMPL  -TERM_CHAR> #3 
1 166 BNEQ 
02 A? 10 8A 001 BICB2 #16, AED_L_FLAGS+2 
DD 0016C PUSHL #1 
} Db 0016 PUSHL #1 
9 oe AE OOF 001 Susiaa LIBR INDER 
000000006 00 Of FB 1%6 CALLS i CBRSCLOSE 
09 54 D1 O17 208 CMPL §- TERM_CHAR, #9 
OF 12 00181 BNEQ 
53 0000' cr 9E 001 MOVAB P.AAP, HELP_TYPE 
4 001 CLRL. -HELP_KEY 
02 a7 10 88 018A BISB2 #16, AED_L_FLAGS+#2 
5 C 001 of CLRO TEM_INDEX 
26 11 001 BRB 5$ 
0D 4 01 192 21$ CMPL §_ TERM_CHAR, #13 
07 67 $3 EF Qoige BBE. 2s AED_L_FLAGS, 228 
53 0000" CF 5E 00198 MOVAB P.AAR, RECP_TYPE 
10 11 00140 BRB 24$ 
07 67 01 fl O1A2 228 BBC #1, AED_L_FLAGS, 23$ 
53 0000" CF 9E O01A6 MOVAB P.AAT, RECP_TYPE 
05 11 OO1AB BRB 24$ 
53 0000" CF 9E OO1AD 338: MOVAB P.AAV, HELP_TYPE 
58 D4 001B2 24$:  CLRL_ HELP_KEY 
02 a7 1 8A 00184 BICB2 #16, AED_L_FLAGS+2 
0082 31 00188 358: BRW 34$ 
3F 54 D1 0018B 26$: CMPL  §TERM_CHAR, #63 
7D 12 0018 BNEQ 
53 0000" CF 9E O01C MOVAB P.AAX, HELP_TYPE 
0165 31 gor BRW 
28 01 54 CF 0018 37s: CASEL TERM CHAR, #1, #40 
OOCE 00C7 00C7 0000 OO1CC 288:  .WORD 48$-28$,- 
F9 D5 0005 OOce 00104 49$-28$.- 
O0A4 089 0089 OOF 010¢ 49$-28$.- 
OOAB OOAB O0A4 O1E4 50$-28$,- 
088 O008F 00 O1EC 50$-28$.- 
9D 134 088 00 O1F4 3 $-28$.- 
E4 ODD 0 O1FC $-28$.- 
005 007A OEB OF 90 04 62$-285.- 
005 006 00 : 05 020¢ 62$-28$.- 
005 007 005 065 90 14 47$-28$.- 
0081 021C 47$~28$.- 
4g§- $.- 
42$-28$.- 
44$- $,- 
44$-288.- 
435- $:- 
45$-28$.- 
398- $:- 
8$-28$.- 


4 
1Besen-1964 25:41:50 YAK BLieg=82,y4,02742, 


nepsie? HSosto-1986 28:4): 


0 AX-11 Bliss-32 V4.0-742 Page 20 A 
32 PACLEDT SRETAEDHELP 85201 . eo V 
40$-28$,- : : 

oS. $,- g : 

8$-28$,- : $ 

1$-28$.- : ; 

41$-28$.- : ; 

9$-28$,- : : 

9$-28$,- : F 

4$-28$,- 3 : 

$-28$,- : ; 

$-28$,- : : 

$-28$,- : 3 

$s- 8S.- : ; 

$-28$,- : : 

0$-28$,- : ; 

1$-28$,- : F 

3$-28$,- 3 $ 

298- 8$.- : : 

2$-28$,- 3 3 

$23. 8$,- : 3 

5$-28$,- : 3 

$93-5ea° 5 3 

7$-28$ : ; 

52 01 CE O021E 298 MNEGL #1, HELP_KEY + 0839 ; 
7C 11 00221 BRB 51$ : ; 

52 0000" CF 9E o03¢5 30$ MOVAB P.AAZ, HELP_KEY + 0722 ; 
7C 11 00228 BRB 53$ : : 

52 0000" CF 9€ 00224 31$ MOVAB P.ABB, HELP_KEY + 0726 ; 
7D 11 00 é BRB 55$ : F 

52 0000" CF 9E 00231 32$ MOVAB P.ABD, HELP_KEY : 0730 ; 
7D 11 00236 BRB 57 : | F 

52 0000" CF 9E 00238 3 MOVAB P.ABF, HELP_KEY : 0734 ; 
7D 11 0023D 348 BRB 59$ : ; 

52 0000" CF 9E 0023F MOVAB P.ABH, HELP_KEY : 0738 F 
7D 11 00244 BRB 6i$ : : 

52 0000" CF 9E 00246 36$:  MOVAB P.ABJ, HELP_KEY t 0742 3 
28 11 00248 BRB 43$ ; ; 

52 0000' CF 9 00240 37$: | MOVAB P.ABL, HELP_KEY : 0746 3 
7B 11 00252 BRB 63$ : : 

52 0000' CF 9 00254 38$: | MOVAB P.ABN, HELP_KEY + 0749 | : 
74 11 00259 BRB 63$ : ; 

52 0000' CF 9€ 00258 39$:  MOVAB P.ABP, HELP_KEY : 0751 ; 
6D 11 00 60 BRB 63$ : ; 

52 0000" CF 9E 00 62 40$: MOVAB P,ABR, HELP_KEY : 0753 : 
66 11 99 6 BRB 63$ : F 

52 0000" CF 1 69 41$:  MOVAB  P.ABT, HELP_KEY : 0755 : 
99 6 BeB 63$ ; | ; 

52 0000' CF 9E 0027 428: MOVAB P.ABV, HELP_KEY : 0758 3 
58 11 00275 43$: BRB 63$ ; : 

52 0000" CF 9 00277 44$:  MOVAB P,ABX, HELP_KEY > 0761 3 
05 11 0027C BRB 46$ ; 3 

52 0000' CF 1 O27E 45$:  MOVAB  P.ABZ, HELP_KEY + 0764 3 
79 11 00 468: BRB 70$ ; : 

52 0000° cr H 47$:  MOVAB P,ACB, HELP_KEY + 0767 ; 
— 1 A BRB 72$ ; : 

52 0000° cr 1 c 48$ MOVAB PACD. HELP_KEY > 0769 : 
52 0000' CF 9E 00293 498 MOVAB  P.ACF, HELP_KEY : 0772 3 
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AX-11 BLi 
ACLEDT.SR 

BcH, HELP_KEY 
: ACJ, HELP_KEY 
P,ACL. HELP_KEY 
P.ACN, HELP_KEY 
P.ACP, HELP_KEY 
P.ACR, HELP_KEY 


af A ag L a ens 64$ 


» RECP_ 


FIELD INDEX, #0, #2 


66$-65$, 


LD_ INDEX 
P.ADB; HELP_TYPE 
69$ 
P.ACV, HELP_TYPE 
P.ACX, HELP_TYPE 
P, AC, HELP_TYPE 


FIELD INDEX 
ITEM_INDEX 


#4, AED_L ptaes*es 73$ 


P.ADD, RECP_ 
90$ 
ITEM. 


WOT OU 0900000009 0000 SI 
OMS: 4AOOINMSWwOAO 


y HELP_KEY 
P.ADH, HELP_KEY 

ADJ. HELP_KEY 
508 
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BY 


09 


03 


02 


02 


52 
52 
52 
52 
52 


69 


68 


0000° 
0000° 
0000" 
0000° 
0000" 


FRET ETT FF ES FN et FN ETE FETE IN FF a tt Be FFD FT 


So 
So 
[= 
oO 
RZ MMINOMO DOOM OF FO UIMMNO OOD OWUMmonron $9 


So 

So 

[=] 

o 

2 
PONMOO 
“WHET “FPO 


5, 


4-Sep- 
% 46 84$: 
1 4B 
%F 4 bce: 
3 $3: 
1 ] 
+ 88$: 
1 
9 62 89%: 
i) 6/7 90$: 
} 0369 
DD o oF 91$: 
dD 
FB 0037 
DD 0037 
DD 0037 
FB 00379 
D4 0037C 
DD 00380 
DD 00382 
4 00384 
F 00386 
oF thts 
ae 
£8 0039 
DO 00398 
D4 00398 
gt 0039F 
E ste 
DD 8 A9 
11 OO3AB 
D4 OO03AD o¢3: 
DD OO3SAF 93$: 
D4 00381 
OF bees 
9F 0038 
9F OO3BA 
FB 0038D 
E9 00 9 
DD 003C 
D4 0035C7 
44 8 C9 
f ia) 
9F 00 0 
4 03D 
4 0306 94$: 
1 dB 
D DE 95$: 
E 
E 
F E5 96$: 
1 E 
Re EC 97$: 
4 EE 


1986 41:52:20 — EACLEDroSRCSAEDHELD L853. 


P.ADL, HELP_KEY 
P.ADN, HELP_KEY 
P.ADP, HELP_KEY 
P.ADR, HELP_KEY 


P.ADT, HELP_KEY 
LP_KEY 
$ 


» SCRSERASE_PAGE 


ZRVEBVrwezweewez—OTVovoiw 0 civo 
ON af) = Vs Te Ce Cr Cr Cv 
PAPHP KEM 


» SCRSSET_CURSOR 
TEXT 

HECP_KEY 

HELP” TYPE 

-(SPY 
AED_HELPOUTPUT 
AED-L_PAGEWIDTH 
LIBR_INDEX 

#6, CBRSGET HELP 
NO_TEXT, 948 

#1; ITEM_INDEX 


NO_TEX 
#47 AED _L_FLAGS+#2, 92$ 
PAD, RO 


93$ 

-(SP) 

HELP_TYPE 
AED_HELPOUTPUT 
AED"L_PAGEWIDTH 
LIBR INDEX 

#6, CBRSGET HELP 
NO_TEXT, 94$ 
HECP_ TYPE 

-(SP 
AED_HELPOUTPUT 
AED OL PAGEWIDTH 


LIBR INDE 
#5, CBRSGET_HELP 
Hae AED_L_FCAGS+2, 95$ 


HELP_KEY 


16$ 
NEW_KEY_MSG 
15$ 

RO 


rose 
a 
0825 | 
0826 | 
0827 
0828 
0844 
0847 


0848 


Pee Se Se Se Se Se Se Se Se Se Se Be Se Se Se Fe Se Se Fe Ge Se Se Se Se Se Se Ge Se Be Se Se Se Se Be Ge Be Ge Se Se Se Se Be Se Se Se Se Se Se Se Be Se Se Se Be Se 


nepbag? B-sto-t96e 7:41:50 Mel] oLiegc32 4,0: 


; Routine Size: 1007 bytes, Routine Base: S$CODE$S + 0000 


$32, Page $3 


_— 


acDsnese 15-Sep-1984 25:41:59 yanel! BLiege32 v4.0-742 


: 426 73 1 ROUTINE AED_HELPOUTPUT (DESCR, FLAGS, DATALARG, KEY_LEVEL) = 

: 6 B75 1 Ses 

..4 $ 876 1: 

3 : af : } FUNCTIONAL DESCRIPTION: 

: 4 79 1/ This routine does the a checking fo insure that only the 
; 2 1 tt : : useful information from the help Library is put on the screen. 
.< ¢ + 1 § CALLING SEQUENCE: 

3 ? ¢ BE : : AED_HELPOUTPUT (ARG1, ARG2, ARG3, ARG4) 

: 4 0885 1 | INPUT PARAMETERS: 

3; 6 0886 1! ARG1: addr of the descr for the Line to output 

; 4 D887 1! G2: addr of a flag longword 

; 439 0888 1! ARGS: address of the data argument (unused here) 

: rr 0889 } : ARG4: address of the current key level 

‘ . 

3; 44 iif 1 ! IMPLICIT INPUTS: 

: rrr oB98 1 ; <i 

> 645 0894 1 | OUTPUT PARAMETERS: 

Bo) 4 fe ee 

+ 648 B97 1 ' IMPLICIT OUTPUTS: 

Bp My 

: 451 0900 1 ! ROUTINE VALUE: 

: 45 0901 1! 1 if successful, 

3 $27 34 : : status code otherwise 

: 455 0904 1 | SIDE EFFECTS: 

3 $3 0905 ! none 

> 458 $907 1 i-- 

: 459 0908 1 

; 660 0909 BEGIN 

: t62 b914 P 

: 46 091¢ DESCR : REF $BBLOCK, ' Text string descriptor 
3 ree a4 FLAGS : REF VECTOR; ! Text data type flags 

: 466 $918 IF (.FLA Ags) AND _HLPSM_NOHLPTXT) NEQ 0 THEN NO_TEXT = 1; 

3 ret o3i$ If “FLAGS J NEQ 0 THEN RETURN 1; 

: 469 0918 2 AED_PUTOUTPUT (SDESCRIPTOR (ZCHAR(AED_C_CHAR_CR), ZCHAR(AED_C_CHAR_LF))); 
; 470 919 AED_PUTOUTPUT (.DESCR); 

3 $7} $31 RETORN 1; 

: 467 $9 2 1 END; ! End of routine AED_HELPOUTPUT 


-PSECT SPLITS,NOWRT .NOEXE ,2 


D 00464 P.AEA: .ASCII <13> 
A 00465 eASCII = <10> 


<<? 


vor=000 


Seat 25:41:50 


AX-11 Bliss-32 Vv 
ACLEDT. SRC JAEDHE 


5 


goonoene, RO4ER pane: LOM 8, 


-PSECT SCODES,NOWRT,2 
0000 00000 AED aMELPOUTENT ; ~i 
. ave nothin 
cooor ER aaa Str 
08 BC 03 $08 1$: TSTL aFLAGS~ 
11 43 BNEQ es 
0000° 6 oF 01 PUSH P.ADZ 
00006 CF i o1 FB 14 CALLS wi AED_PUTOUTPUT 
0000G CF 01 FB OOOIC CALLS #1, AED_PUTOUTPUT 
£5 01 50 tt 2s: MOVL e a0 
04 00024 RET 

; Routine Size: 57 bytes, Routine Base: SCODES + O3EF 
3 674 
3; 4675 0994 1 END 
3 476 0925 0 ELUDOM 
. PSECT SUMMARY 
; Name Bytes Attributes 
; AED_COMMON 1320 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
: SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; «SPLITS 1136 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 1044 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
ee A ee re me Syahol§ coceeoe= Pages Processing 
: File Total ioaded Percent Mapped Time 
; -$255$DUA28: (SYSLIBILIB.L32;1 18619 26 0 1000 00:01.7 


3; Information: 
3; Warnings: 


<> 


agpsngy? 1B-$e0ct9ee gfe4h:50 AUST D wbdeyde asp Oezse, reset 


i 
————— | 


A 

v 

; Errors: 0 ; 
| é 

: COMMAND QUALIFIERS 3 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:AEDHELP/OBJ=O0BJ$:AEDHELP MSRC$:AEDHELP/UPDATE=(ENHS$: AEDHELP) ; 
3; Size: 1044 ¢ + 24660 data bytes ; 
3; Run Time: 725. 3 
; Elapsed Time: : : 
3; Lines/CPU Min: 4 : 
3; Lexemes/CPU-Min: 1 : 
3 pemety Used: 314 pages 3 
; Compilation Complete 3 


N03 fHBT13A- SE dik iy : ENT CORPORATION 
VVV3 vax/vMS v4.0 | TARY. 


I 
F 


